﻿Public Class Movimientos

    Dim ID_Movimientos As Integer
    Dim Codigo As Integer
    Dim Fecha As String
    Dim Descripcion As String
    Dim SubTotal As Integer
    Dim Iva As Integer
    Dim Total As Integer
    Dim ID_Tipo_Documento As Integer
    Dim ID_Bodega As Integer
    Dim ID_Socio As Integer

    Public Sub New()
    End Sub

    Public Sub New(ByVal IdM As Integer, ByVal cod As Integer, ByVal fech As String, ByVal desc As String, ByVal Sto As Integer, ByVal iv As Integer, ByVal tot As Integer, ByVal ITD As Integer, ByVal IDB As Integer,
                   ByVal IDS As Integer)
        Me.ID_Movimientos = IdM
        Me.Codigo = cod
        Me.Fecha = fech
        Me.Descripcion = desc
        Me.SubTotal = Sto
        Me.Iva = iv
        Me.Total = tot
        Me.ID_Tipo_Documento = ITD
        Me.ID_Bodega = IDB
        Me.ID_Socio = IDS
    End Sub

    Public Property pID_Movimiento As Integer
        Get
            Return Me.ID_Movimientos
        End Get
        Set(ByVal value As Integer)
            Me.ID_Movimientos = value
        End Set
    End Property

    Public Property pCodigo As Integer
        Get
            Return Me.Codigo
        End Get
        Set(ByVal value As Integer)
            Me.Codigo = value
        End Set
    End Property


    Public Property pFehca As String
        Get
            Return Me.Fecha
        End Get
        Set(ByVal value As String)
            Me.Fecha = value
        End Set
    End Property

    Public Property pDescripcion As String
        Get
            Return Me.Descripcion
        End Get
        Set(ByVal value As String)
            Me.Descripcion = value
        End Set
    End Property

    Public Property pSubTotal As Integer
        Get
            Return Me.SubTotal
        End Get
        Set(ByVal value As Integer)
            Me.SubTotal = value
        End Set
    End Property


    Public Property pIva As Integer
        Get
            Return Me.Iva
        End Get
        Set(ByVal value As Integer)
            Me.Iva = value
        End Set
    End Property

    Public Property pTotal As Integer
        Get
            Return Me.Total
        End Get
        Set(ByVal value As Integer)
            Me.Total = value
        End Set
    End Property


    Public Property pID_T_Documento As Integer
        Get
            Return Me.ID_Tipo_Documento
        End Get
        Set(ByVal value As Integer)
            Me.ID_Tipo_Documento = value
        End Set
    End Property

    Public Property pBodega As Integer
        Get
            Return Me.ID_Bodega
        End Get
        Set(ByVal value As Integer)
            Me.ID_Bodega = value
        End Set
    End Property

    Public Property pSocio As Integer
        Get
            Return Me.ID_Socio
        End Get
        Set(ByVal value As Integer)
            Me.ID_Socio = value
        End Set
    End Property

End Class
